function Plot_Poligono(P1, Zp, p)
plot3(P1(p,2), P1(p,1), Zp(p));